(defun hello-world-t () 
  (format t "hello, world !"))

(defun foo (&key (a 0) (b 0 b-supplied-p) (c (+ a b))) 
  (list a b c b-supplied-p))